Notes/Domino 6 and 7 Forum : retrieve Username (using vbscript in Notes)

Notes/Domino 6 and 7 Forum

retrieve Username (using vbscript in Notes)

retrieve Username (using vbscript in Notes)
Posted by ~Fred Chufookonyoden on 3.Dec.03 at 01:01 PM using a Web browser
Category: Domino Designer

Release: 6.0.1 CF2

Platform: Windows XP

Hello,

I don't know how to use vbscript in Notes.
But you can retrieve the username using the Windows API. The following example works on a Windows 2000 Workstation and I hope that MS hasn't changed the Syntax of the API.
You have to declare the function in the declaration section of your agent.
For example:
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (Byval lpBuffer As String, nSize As Long) As Long

Then you can use the function in your agent. Like this:
Sub Initialize
Dim RetVal As Long
Dim Buffer As String * 255
Dim UserName As String

RetVal = GetUserName(Buffer, Len(Buffer))

If RetVal <> 0 Then
Msgbox Buffer
End If
End Sub

Hope it will work for Win XP, too.

Carsten